NEXT Generation: Next View/Next Generation Disc Magazine 1 (1996).ISO/pc/media/demos.dxr/Internal_1.ls

Text File | 1996-08-26 | 1.2 KB | 45 lines

on startMovie
  set the volume of sound 1 to 255
  set the volume of sound 2 to 255
  set the constraint of sprite 35 to 34
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 27 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
end

on setSoundLevel whichSprite, pmin, pmax
  global gSoundLevel, gThumbPuppet
  set curpos to the locH of sprite whichSprite
  set gSoundLevel to integer((curpos - pmin) * 8 / (pmax - pmin))
  set gSoundLevel to min(max(gSoundLevel, 0), 7)
  set the soundLevel to gSoundLevel
  set gThumbPuppet to whichSprite
  return gSoundLevel
end

on setSoundPos whichSprite, pmin, pmax
  global gSoundLevel, gThumbPuppet
  set curpos to pmin + integer(gSoundLevel * (pmax - pmin) / 7)
  puppetSprite(whichSprite, 1)
  set the locH of sprite whichSprite to curpos
  updateStage()
  set gThumbPuppet to whichSprite
  return curpos
end

on clearThumb
  global gThumbPuppet
  puppetSprite(gThumbPuppet, 0)
  updateStage()
end

on stopMovie
  clearThumb()
end